home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd1.bin / Software / Vyzkuste / tiptrik / tiptrik.exe / soubory pro pcw 10 - æikovn¡ pomocn¡ci pro vaçe Windows / skripty / wrdexp.mak < prev   
Text File  |  2000-08-18  |  376b  |  11 lines
  1. Dim Adresse As String
  2. Dim WordObj As Word.Application
  3. Set WordObj = GetObject(, "Word.Application")
  4. LF = Chr$(13) & Chr$(10)
  5. If Not IsNull(Me!Firma) Then
  6.     Adresse = Me!Firma & LF & Me!Kontaktnφ_osoba & LF & Me!Adresa
  7.     Adresse = Adresse & LF & Me!PS╚ & " " & Me!M∞sto & LF & Me!Telefon
  8. End If
  9. WordObj.Selection.TypeText Text:=Adresse & LF
  10. Set WordObj = Nothing
  11.